Chip 2004 December/2004-12 CHIP.iso/Internet/The Bat! Professional 3.01/thebat_professional.msi/Data1.cab/thebat.exe/0/RCDATA/TCONNECTMONITOR/TCONNECTMONITOR.txt

Text File | 2004-10-12 | 12KB | 515 lines

object ConnectMonitor: TConnectMonitor
  Left = 405
  Top = 251
  Width = 444
  Height = 462
  Caption = 'Connection Centre'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Book: TPageControl
    Left = 0
    Top = 0
    Width = 436
    Height = 371
    ActivePage = tsQueue
    Align = alClient
    MultiLine = True
    TabOrder = 0
    OnChange = BookChange
    object tsQueue: TTabSheet
      Caption = 'Queue'
      object pnQueue: TPanel
        Tag = 11
        Left = 0
        Top = 0
        Width = 428
        Height = 343
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 0
        object Splitter1: TSplitter
          Left = 2
          Top = 139
          Width = 424
          Height = 3
          Cursor = crVSplit
          Align = alTop
          Color = clBtnFace
          ParentColor = False
          ResizeStyle = rsUpdate
        end
        object sbBox: TScrollBox
          Left = 2
          Top = 142
          Width = 424
          Height = 199
          VertScrollBar.Position = 56
          VertScrollBar.Tracking = True
          Align = alClient
          BevelInner = bvNone
          BevelOuter = bvNone
          BorderStyle = bsNone
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 0
          OnResize = sbBoxResize
          object lSize: TLabel
            Left = 197
            Top = -24
            Width = 36
            Height = 13
            Alignment = taRightJustify
            Caption = '0 Bytes'
            Visible = False
          end
          object lZero: TLabel
            Left = 8
            Top = -24
            Width = 6
            Height = 13
            Caption = '0'
            Visible = False
          end
          object lcStatus: TLabel
            Left = 64
            Top = 24
            Width = 241
            Height = 41
            AutoSize = False
            Transparent = True
            WordWrap = True
          end
          object lblMessage: TLabel
            Left = 8
            Top = 68
            Width = 49
            Height = 13
            Caption = 'Message: '
          end
          object lblXfer: TLabel
            Left = 8
            Top = 88
            Width = 48
            Height = 13
            Caption = 'Transfer: '
          end
          object lblTime: TLabel
            Left = 8
            Top = 108
            Width = 26
            Height = 13
            Caption = 'Time:'
          end
          object lLog: TLabel
            Left = 8
            Top = 132
            Width = 21
            Height = 13
            Caption = '&Log:'
            FocusControl = eLog
          end
          object lblServer: TLabel
            Left = 8
            Top = -48
            Width = 36
            Height = 13
            Caption = 'Server:'
          end
          object lcMessage: TLabel
            Left = 72
            Top = 68
            Width = 32
            Height = 13
            AutoSize = False
            Transparent = True
          end
          object lcXfer: TLabel
            Left = 64
            Top = 88
            Width = 32
            Height = 13
            AutoSize = False
            Transparent = True
          end
          object lcTime: TLabel
            Left = 104
            Top = 108
            Width = 38
            Height = 13
            AutoSize = False
          end
          object lblStatus: TLabel
            Left = 8
            Top = 24
            Width = 35
            Height = 13
            Caption = 'Status:'
          end
          object lcServer: TLabel
            Left = 64
            Top = -48
            Width = 241
            Height = 13
            AutoSize = False
          end
          object gProgress: TBatGauge
            Left = 244
            Top = -27
            Width = 49
            Height = 49
            Color = clBtnFace
            Kind = gkPie
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            BorderStyle = bsNone
            MaxValue = 0
            ShowPercent = False
            Animated = False
            ParentColor = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
          end
          object Bar: TProgressBar
            Left = 8
            Top = -8
            Width = 225
            Height = 17
            TabOrder = 0
          end
          object Panel1: TPanel
            Left = 0
            Top = 145
            Width = 407
            Height = 188
            Align = alBottom
            BevelOuter = bvNone
            TabOrder = 1
            object eLog: TMemo
              Left = 0
              Top = 0
              Width = 407
              Height = 188
              Align = alClient
              Ctl3D = True
              ParentCtl3D = False
              ReadOnly = True
              ScrollBars = ssBoth
              TabOrder = 0
              WantReturns = False
              WordWrap = False
            end
          end
          inline irInfo: TImapReqFrame
            Left = 100
            Top = 53
            Width = 100
            Height = 100
            TabOrder = 3
            Visible = False
            inherited lvRequests: TListView
              Width = 100
              Height = 100
              BevelEdges = []
              BevelInner = bvNone
              BevelOuter = bvNone
              BorderStyle = bsNone
            end
          end
        end
        object MLV: TMLVGrid
          Left = 2
          Top = 19
          Width = 424
          Height = 120
          Align = alTop
          BorderStyle = bsNone
          DefaultRowHeight = 16
          DefaultDrawing = False
          FixedCols = 0
          RowCount = 1
          FixedRows = 0
          Options = [goThumbTracking]
          PopupMenu = pmTasks
          TabOrder = 1
          OnExit = MLVExit
          OnMouseDown = MLVMouseDown
          AltDrag = True
          AutoColResize = True
          AutoSearch = False
          MultiSelect = False
          Header = hTasks
          OnFocusItem = MLVFocusItem
          ImmediateSelect = False
          OnDrawItemImage = MLVDrawItemImage
        end
        object hTasks: THeaderControl
          Left = 2
          Top = 2
          Width = 424
          Height = 17
          Sections = <>
        end
      end
    end
    object tsConnect: TTabSheet
      Caption = 'Connection'
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 305
        Height = 185
        Caption = 'Status'
        TabOrder = 0
        object lbStatus: TLabel
          Left = 16
          Top = 64
          Width = 30
          Height = 13
          Caption = 'State:'
        end
        object lDevice: TLabel
          Left = 16
          Top = 104
          Width = 36
          Height = 13
          Caption = 'Device:'
        end
        object lStatus: TLabel
          Left = 96
          Top = 64
          Width = 201
          Height = 33
          AutoSize = False
          ShowAccelChar = False
          WordWrap = True
        end
        object lDevName: TLabel
          Left = 96
          Top = 104
          Width = 201
          Height = 25
          AutoSize = False
          ShowAccelChar = False
          WordWrap = True
        end
        object lError: TLabel
          Left = 16
          Top = 144
          Width = 51
          Height = 13
          Caption = 'Last error:'
          Visible = False
        end
        object lbEntry: TLabel
          Left = 16
          Top = 24
          Width = 88
          Height = 13
          Caption = #39'Phonebook entry:'
        end
        object lEntryName: TLabel
          Left = 112
          Top = 24
          Width = 185
          Height = 33
          AutoSize = False
          WordWrap = True
        end
        object mError: TMemo
          Left = 96
          Top = 144
          Width = 201
          Height = 33
          ScrollBars = ssVertical
          TabOrder = 0
          Visible = False
        end
      end
      object cbInteractive: TCheckBox
        Left = 10
        Top = 208
        Width = 319
        Height = 17
        Caption = 'Do not show error messages, just keep retrying'
        TabOrder = 1
        OnClick = cbInteractiveClick
      end
    end
  end
  object pnBottom: TPanel
    Left = 0
    Top = 371
    Width = 436
    Height = 29
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object cbAutoDisconnect: TCheckBox
      Left = 4
      Top = 6
      Width = 469
      Height = 17
      Caption = 'Disconnect automatically when session(s) finish'
      TabOrder = 0
    end
  end
  object pnButtonAligner: TPanel
    Left = 0
    Top = 400
    Width = 436
    Height = 28
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    OnResize = tbBarResize
    object bDetails: TSpeedButton
      Left = 156
      Top = 0
      Width = 62
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Down = True
      Caption = 'D&etails'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = bDetailsClick
    end
    object bHide: TSpeedButton
      Left = 107
      Top = 0
      Width = 49
      Height = 22
      Caption = '&Hide'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = bHideClick
    end
    object bAbort: TSpeedButton
      Left = 55
      Top = 0
      Width = 52
      Height = 22
      Caption = '&Abort all'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = bAbortClick
    end
    object bDelete: TSpeedButton
      Left = 0
      Top = 0
      Width = 55
      Height = 22
      Caption = '&Delete task'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      OnClick = bDeleteTaskClick
    end
  end
  object RAS: TRAS
    OnConnect = RASConnect
    OnDisconnect = RASDisconnect
    OnPortOpened = RASPortOpened
    OnAboutToConnDev = RASPortOpened
    OnDevConnected = RASPortOpened
    OnAllDevsConnected = RASPortOpened
    OnAuthenticate = RASAuthenticate
    OnWaitForModemReset = RASWaitForModemReset
    OnGotError = RASGotError
    Left = 348
    Top = 192
  end
  object tmTreshold: TTimer
    Enabled = False
    OnTimer = tmTresholdTimer
    Left = 385
    Top = 192
  end
  object tmCheckRas: TTimer
    Enabled = False
    OnTimer = tmCheckRasTimer
    Left = 420
    Top = 192
  end
  object lImages: TImageList
    AllocBy = 2
    Left = 353
    Top = 256
  end
  object tmUpdate: TTimer
    Interval = 250
    OnTimer = tmUpdateTimer
    Left = 410
    Top = 240
  end
  object tmDeletedCheck: TTimer
    OnTimer = tmDeletedCheckTimer
    Left = 408
    Top = 272
  end
  object pmTasks: TPopupMenu
    OnPopup = pmTasksPopup
    Left = 344
    Top = 304
    object mDelete: TMenuItem
      Caption = '&Delete'
      ShortCut = 46
      OnClick = bDeleteTaskClick
    end
    object mKeepTask: TMenuItem
      Caption = '&Keep this task'
      ShortCut = 16459
      OnClick = mKeepTaskClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mAbortAll: TMenuItem
      Caption = '&Abort all tasks'
      OnClick = bAbortClick
    end
  end
end